<?
	require_once('../Extras/Functions.php');
	CheckSession();
	
	$TI = explode(" ", microtime());
	
	$mysqli = ConectObj();
	
	if($T==1 && $P=='Jeb')
		$query = "SELECT * FROM cols";
	else
		$query = "SELECT * FROM cols WHERE ID='$ColID'";
	
	$result = $mysqli->query($query);
	
######################################################################################################################################
	while($Cols = $result->fetch_assoc()){
		if($T==1 && $P=='Jeb') echo "\n\n<hr><p>$Cols[ID] / $Cols[Colonia] / $Cols[Lider]</p><ul>";
		
		
		//VARIABLES
		$ColID = $Cols['ID'];
		$Civil = $Cols['Civil'];
		$Pers = $Cols['Pers'];
		$Tierra = $Cols['Tierra'];
		$Explorando = $Cols['Explorando'];
		$Oro = $Cols['Oro'];
		$Piedra = $Cols['Piedra'];
		$Comida = $Cols['Comida'];
		$Runas = $Cols['Runas'];
		$Aldeanos = $Cols['Aldeanos'];
		$PorEjer = $Cols['PorEjer'];
		$VelRec = $Cols['VelRec'];
		$Soldados = $Cols['Soldados'];
		$Tropa1 = $Cols['Tropa1'];
		$Tropa2 = $Cols['Tropa2'];
		$Elites = $Cols['Elites'];
		$TropaPers = $Cols['TropaPers'];
		$EntTropa1 = $Cols['EntTropa1'];
		$EntTropa2 = $Cols['EntTropa2'];
		$EntElites = $Cols['EntElites'];
		$EntTropaPers = $Cols['EntTropaPers'];
		$Caballos = $Cols['Caballos'];
		$Chamanes = $Cols['Chamanes'];
		$Entereza = $Cols['Entereza'];
		$Casas=$Cols['Casas'];
		$ProCasas=$Cols['ProCasas'];
		$Granjas=$Cols['Granjas'];
		$ProGranjas=$Cols['ProGranjas'];
		$Comercios=$Cols['Comercios'];
		$ProComercios=$Cols['ProComercios'];
		$Minas=$Cols['Minas'];
		$ProMinas=$Cols['ProMinas'];
		$Barracas=$Cols['Barracas'];
		$ProBarracas=$Cols['ProBarracas'];
		$Fortificaciones=$Cols['Fortificaciones'];
		$ProFortificaciones=$Cols['ProFortificaciones'];
		$Establos=$Cols['Establos'];
		$ProEstablos=$Cols['ProEstablos'];
		$Templos=$Cols['Templos'];
		$ProTemplos=$Cols['ProTemplos'];
		
		
		
		//--> HECHIZOS [Spells]
		$Spells = json_decode($Cols[Spells]);
		if(!empty($Spells)){
			$i=0;
			foreach($Spells as $data){
				if($data[1]-- < 1){ //Si se termino tiempo...
					array_splice($Spells,$i,1); //Elimino del arreglo
					$i--;
				}else{ //Si sigue activo...
					$Spells[$i] = array($data[0],$data[1]--);
				}
				$i++;
			}
			$Spells = json_encode($Spells);
		}
		
		if($T==1 && $P=='Jeb') echo "<li>Hechizos: $Spells</li>";
		
		
		
		//--> EXPLORACION [Exploration]
		if($Cols['Explorando'] > 0){
			$Explorado = floor(($Tierra/100)*1+($Explorando/100)*5); //Tierra Explorada Cada Turno <---// 1% de Tierra Total + 5% de Exploracion actual
			if($Explorado > $Explorando)
				$Explorado=$Explorando;
			$Tierra = $Tierra+$Explorado;
			$Explorando = $Explorando-$Explorado;
		}
		
		if($T==1 && $P=='Jeb') echo "<li>Tierras<ul><li>Tierra: $Tierra</li><li>Explorado: $Explorado</li><li>Explorando: $Explorando</li></ul></li>";
		
		
		
		//-->CONSTRUCCION [Construction]
		$EnConst = ($ProCasas + $ProGranjas + $ProComercios + $ProMinas + $ProBarracas + $ProFortificaciones + $ProTemplos + $ProEstablos);
		if($EnConst > 0){
			
			$ConstCons = 0.08;
			$seConstruiran = round($Tierra*0.01); //Construccion Base <---// 1% de Tierra + 8% de Const.
			
			if($ProCasas>0){
				$CasasConst = $seConstruiran + floor($ProCasas*$ConstCons);
				if($CasasConst > $ProCasas) $CasasConst = $ProCasas;
				$Casas+=$CasasConst;
				$ProCasas-=$CasasConst;
			}
			if($ProGranjas>0){
				$GranjasConst = $seConstruiran + floor($ProGranjas*$ConstCons);
				if($GranjasConst > $ProGranjas) $GranjasConst = $ProGranjas;
				$Granjas+=$GranjasConst;
				$ProGranjas-=$GranjasConst;
			}
			if($ProComercios>0){
				$ComerciosConst = $seConstruiran + floor($ProComercios*$ConstCons);
				if($ComerciosConst > $ProComercios) $ComerciosConst = $ProComercios;
				$Comercios+=$ComerciosConst;
				$ProComercios-=$ComerciosConst;
			}
			if($ProMinas>0){
				$MinasConst = $seConstruiran + floor($ProMinas*$ConstCons);
				if($MinasConst > $ProMinas) $MinasConst = $ProMinas;
				$Minas+=$MinasConst;
				$ProMinas-=$MinasConst;
			}
			if($ProBarracas>0){
				$BarracasConst = $seConstruiran + floor($ProBarracas*$ConstCons);
				if($BarracasConst > $ProBarracas) $BarracasConst = $ProBarracas;
				$Barracas+=$BarracasConst;	
				$ProBarracas-=$BarracasConst;
			}
			if($ProFortificaciones>0){
				$FortificacionesConst = $seConstruiran + floor($ProFortificaciones*$ConstCons);
				if($FortificacionesConst > $ProFortificaciones) $FortificacionesConst = $ProFortificaciones;
				$Fortificaciones+=$FortificacionesConst;
				$ProFortificaciones-=$FortificacionesConst;
			}
			if($ProTemplos>0){
				$TemplosConst = $seConstruiran + floor($ProTemplos*$ConstCons);
				if($TemplosConst > $ProTemplos) $TemplosConst = $ProTemplos;
				$Templos+=$TemplosConst;
				$ProTemplos-=$TemplosConst;
			}
			if($ProEstablos>0){
				$EstablosConst = $seConstruiran + floor($ProEstablos*$ConstCons);
				if($EstablosConst > $ProEstablos) $EstablosConst = $ProEstablos;
				$Establos+=$EstablosConst;
				$ProEstablos-=$EstablosConst;
			}
		}
		
		
		
		//-->CHAMANES Y RUNAS
		$ChamanesProd = (($Cols['TemplosPri']*2)/100) * $Templos*0.2;
		$Chamanes = $Cols['Chamanes'] + $ChamanesProd;
		
		$RunasProd = (((100-$Cols[TemplosPri])*2)/100) * $Templos*25;
		$RunasPer = floor(($Cols['Runas'] - $RunasProd)*0.01); //<--- Runas Perdidas 1%
		$Runas = $Cols['Runas'] + $RunasProd -$RunasPer;
		
		
		
		//-->ALDEANOS
		$NoConst = $Tierra-$Casas-$Granjas-$Comercios-$Minas-$Barracas-$Fortificaciones-$Templos-$Establos-$ProCasas-$ProGranjas-$ProComercios-$ProMinas-$ProBarracas-$ProFortificaciones-$ProTemplos-$ProEstablos;
		$EnConst = $ProCasas+$ProGranjas+$ProComercios+$ProMinas+$ProBarracas+$ProFortificaciones+$ProTemplos+$ProEstablos;
		$PobMax = ($NoConst*18) + ($EnConst*22) + ($Casas*12) + (($Tierra-$NoConst-$EnConst)*30);
		$Poblacion = $Aldeanos+$Soldados+$Tropa1+$Tropa2+$Elites+$TropaPers+$EntTropa1+$EntTropa2+$EntElites+$EntTropaPers+$Chamanes;
		$SobrePob = $Poblacion - $PobMax;
		$Tropas = $Soldados+$Tropa1+$Tropa2+$Elites+$TropaPers;
		$EntTropas = $EntTropa1+$EntTropa2+$EntElites+$EntTropaPers;
		$AldeanosMax = $PobMax-$Tropas-$EntTropas-$Chamanes;
		if($AldeanosMax<1)
			$AldeanosMax=0;
		if($Cols['Aldeanos'] < $AldeanosMax){
			$CreciAldeanos = $Aldeanos*0.02; // Crecimiento de Poblacion <---// +2%
			if($Aldeanos/$Tierra < 5)
				$CreciAldeanos += $Tierra*0.25; // Crecimineto de Poblacion en Estado Critico <---// +2% +0.25 de Tierra Total
			if(($Aldeanos + $CreciAldeanos) > $AldeanosMax){
				$CreciAldeanos = $AldeanosMax - $Aldeanos;
				$Aldeanos = $AldeanosMax;
			}
			else
				$Aldeanos = floor($Aldeanos + $CreciAldeanos);
			
		}
		if($Aldeanos > $AldeanosMax){
			$AldeanosMuertos = floor($Aldeanos*0.01+$SobrePob*0.02); //Aldeanos Muertos Por SobrePob <---// 1% de Aldeanos Totales + 2% de SobrePob
			$Aldeanos -= $AldeanosMuertos;
		}
		
		if($T==1 && $P=='Jeb') echo '<li>Poblacion<ul><li>Construido: '.($Tierra-$NoConst-$EnConst).' ('. ($Tierra-$NoConst-$EnConst)*30 .' Poblacion) [30]</li><li>No Construido: '.$NoConst.' ('. $NoConst*18 .' Poblacion) [18]</li><li>En Construccion: '.$EnConst.' ('. $EnConst*22 .' Poblacion) [22]</li><li>Casas: '.$Casas.'('. $Casas*12 .' Poblacion) [12]</li><li>Poblacion Maxima: '.$PobMax.'</li></ul></li>';
		
		
		
		//-->TROPAS EN COMBATE
		$Gene1 = explode('|',$Cols['Gene1']);	$Gene2 = explode('|',$Cols['Gene2']);	$Gene3 = explode('|',$Cols['Gene3']);	$Gene4 = explode('|',$Cols['Gene4']);
		if($Gene1[0] > 0){
			if(($TiempoRest = $Gene1[7]-1) == 0){
				$Soldados+=$Gene1[1];	$Tropa1+=$Gene1[2];	$Tropa2+=$Gene1[3];	$Elites+=$Gene1[4];	$TropaPers+=$Gene1[5];	$Tierra+=$Gene1[6];
				$Gene1 = "0";
			}else
				$Gene1 = "$Gene1[0]|$Gene1[1]|$Gene1[2]|$Gene1[3]|$Gene1[4]|$Gene1[5]|$Gene1[6]|$TiempoRest";
		}else{$Gene1="0";}
		if($Gene2[0] > 0){
			if(($TiempoRest = $Gene2[7]-1) == 0){
				$Soldados+=$Gene2[1];	$Tropa1+=$Gene2[2];	$Tropa2+=$Gene2[3];	$Elites+=$Gene2[4];	$TropaPers+=$Gene2[5];	$Tierra+=$Gene2[6];
				$Gene2 = "0";
			}else
				$Gene2 = "$Gene2[0]|$Gene2[1]|$Gene2[2]|$Gene2[3]|$Gene2[4]|$Gene2[5]|$Gene2[6]|$TiempoRest";
		}else{$Gene2="0";}
		if($Gene3[0] > 0){
			if(($TiempoRest = $Gene3[7]-1) == 0){
				$Soldados+=$Gene3[1];	$Tropa1+=$Gene3[2];	$Tropa2+=$Gene3[3];	$Elites+=$Gene3[4];	$TropaPers+=$Gene3[5];	$Tierra+=$Gene3[6];
				$Gene3 = "0";
			}else
				$Gene3 = "$Gene3[0]|$Gene3[1]|$Gene3[2]|$Gene3[3]|$Gene3[4]|$Gene3[5]|$Gene3[6]|$TiempoRest";
		}else{$Gene3="0";}
		if($Gene4[0] > 0){
			if(($TiempoRest = $Gene4[7]-1) == 0){
				$Soldados+=$Gene4[1];	$Tropa1+=$Gene4[2];	$Tropa2+=$Gene4[3];	$Elites+=$Gene4[4];	$TropaPers+=$Gene4[5];	$Tierra+=$Gene4[6];
				$Gene4 = "0";
			}else
				$Gene4 = "$Gene4[0]|$Gene4[1]|$Gene4[2]|$Gene4[3]|$Gene4[4]|$Gene4[5]|$Gene4[6]|$TiempoRest";
		}else{$Gene4="0";}
		
		
		
		//-->ENTRENAMIENTO
		if($EntTropas > 0){
			$Entrenadas = floor($Tierra*0.08); //Tropas Entrenadas Por Turno <---// 8% de Tierra + 5% de la cola de produccion.
			$troopFact = 0.05;
			
			if(($PorT1 = $EntTropa1/$EntTropas)>0){
				$TrainT1 = floor($Entrenadas/$PorT1 + $EntTropa1*$troopFact);
				if($TrainT1>$EntTropa1)
					$TrainT1 = $EntTropa1;
			}
			if(($PorT2 = $EntTropa2/$EntTropas)>0){
				$TrainT2 = floor($Entrenadas/$PorT2 + $EntTropa2*$troopFact);
				if($TrainT2>$EntTropa2)
					$TrainT2 = $EntTropa2;
			}
			if(($PorEl = $EntElites/$EntTropas)>0){
				$TrainEl = floor($Entrenadas/$PorEl + $EntElites*$troopFact);
				if($TrainEl>$EntElites)
					$TrainEl = $EntElites;
			}
			if(($PorTP = $EntTropaPers/$EntTropas)>0){
				$TrainTP=floor($Entrenadas/$PorTP + $EntTropaPers*$troopFact);
				if($TrainTP>$EntTropaPers)
					$TrainTP = $EntTropaPers;
			}
			
			$Tropa1 += $TrainT1;				$EntTropa1 -= $TrainT1;
			$Tropa2 += $TrainT2;				$EntTropa2 -= $TrainT2;
			$Elites += $TrainEl;				$EntElites -= $TrainEl;
			$TropaPers += $TrainTP;			$EntTropaPers -= $TrainTP;
		}
		
		
		
		//-->RECLUTAMIENTO
		$Poblacion = $Aldeanos + $Soldados + $Tropa1 + $Tropa2 + $Elites + $TropaPers + $EntTropa1 + $EntTropa2 + $EntElites +$EntTropaPers + $Chamanes;
		$Tropas = $Tropa1+$Tropa2+$Elites+$TropaPers+$EntTropa1+$EntTropa2+$EntElites+$EntTropaPers;
		$PorEjerAct = (($Tropas+$Soldados)/$Poblacion)*100;
		if($PorEjerAct < $PorEjer){
			if($VelRec==0){$SoldsProd = 0;}
			else if($VelRec==1){$CosSold = 100; $SoldsProd = floor($Aldeanos * 0.003); $OroRec = $CosSold*$SoldsProd;}
			else if($VelRec==2){$CosSold = 180; $SoldsProd = floor($Aldeanos * 0.007); $OroRec = $CosSold*$SoldsProd;}
			else if($VelRec==3){$CosSold = 300; $SoldsProd = floor($Aldeanos * 0.016); $OroRec = $CosSold*$SoldsProd;}
			else if($VelRec==4){$CosSold = 450; $SoldsProd = floor($Aldeanos * 0.025); $OroRec = $CosSold*$SoldsProd;}
			$Soldados = $Soldados+$SoldsProd;
			$Aldeanos = $Aldeanos-$SoldsProd;
			$Poblacion = $Aldeanos + $Soldados + $Tropas + $Chamanes;
			$PorEjerAct = (($Tropas+$Soldados)/$Poblacion)*100;
			if($PorEjerAct > $PorEjer){
				$TropasNec = floor($Poblacion*($PorEjer/100));
				$SoldsNec = floor($TropasNec-$Tropas-$Soldados);
				$SoldsProd = $SoldsNec;
				$OroRec = $CosSold*SoldsProd;
				$Soldados = $Soldados+$SoldsProd;
				$Aldeanos = $Aldeanos-$SoldsProd;
			}
		}
		
		
		
		//-->TROPAS PERDIDAS POR SOBREPOBLACION
		if($SobrePob>1){
			$PerdidaTropas = floor($Tropas*0.01 + $SobrePob*0.02);
			$Soldados = $Soldados - $PerdidaTropas;
			if($Soldados < 0){
				$PerdidaTropas = $Soldados*-1;
				$Soldados = 0;
				$Tropa1 = $Tropa1 - $PerdidaTropas;
				if($Tropa1 < 0){
					$PerdidaTropas = $Tropa1*-1;
					$Tropa1 = 0;
					$$Tropa2 = $Tropa2 - $PerdidaTropas;
					if($Tropa2 < 0){
						$PerdidaTropas = $Tropa2*-1;
						$Tropa2 = 0;
						$TropaPers = $TropaPers - $PerdidaTropas;
						if($TropaPers < 0){
							$PerdidaTropas = $TropaPers*-1;
							$TropaPers = 0;
							$Elites = $Elites - $PerdidaTropas;
							if($Elites < 0)
								$Elites = 0;
						}
					}
				}
			}
		}
		
		
		//-->RECURSOS.
		checkSpell(8,$Cols[Spells]) > 0 ? $multOro = 1.2 : $multOro = 1;
		
		$OroAldeanos = floor($Aldeanos*4.5); //Produccion por Aldeano <---// 2.2
		$OroTierra = $NoConst*12;
		$OroComercios = $Comercios*60;
		$OroMantenimiento =  $Barracas*25 + $Fortificaciones*25 + $Templos*15 + $Establos*15; //Oro Por Tierra <---//
		$OroTropas = floor(($Tropa1 + $Tropa2  + $Elites + $TropaPers)*1.5); // <---// Mantenimiento a Tropas.
		$Oro = $Oro + (($OroAldeanos + $OroTierra + $OroComercios)*$multOro) - $OroMantenimiento - $OroRec - $OroTropas;
		
		$Poblacion = $Aldeanos + $Soldados + $Tropas + $Cols['Chamanes'];
		$Spell[1] > 0 ? $MultComi = 1.15 : $MultComi = 1;
		
		$ComidaNec = floor($Poblacion/3); // Comida Consumida <---// 1 Por cada 3
		$ComidaProd = ($NoConst*7 + $Granjas*150) * $MultComi; //Comida Producida
		$Comida = $Cols['Comida'] + $ComidaProd - $ComidaNec;
		$ComidaPer = floor(($Cols['Comida']+$ComidaProd-$ComidaNec)*0.01); // Comida Perecida <---// 1% de la comida restante
		$Comida = $Cols['Comida'] + $ComidaProd - $ComidaNec -$ComidaPer;
		
		$PiedraProd = $TierraSinCons*2 + $Minas*50;
		$PiedraPer = floor(($Cols['Piedra']+$PiedraProd)*0.01); //Piedra Perdida <---// 1% de la piedra restante
		$Piedra = $Cols['Piedra'] + $PiedraProd - $PiedraPer;
		
		//PERDIDAS POR FALTA DE RECURSOS
		if($Comida<0){
			$AldeanosMuertos = floor(($Comida/3)*0.1)*-1; // <---// 10% de Pob sin alimentar
			$Aldeanos -= $AldeanosMuertos;
		}
		
		
		echo '</ul>'; //Cierro ul abierto en el header...
		
		//-->INSERSION
		if($T==1 && $P=='Jeb'){
			$mysqli->query("UPDATE cols SET Tierra=$Tierra, Explorando=$Explorando, Oro=$Oro, Piedra=$Piedra, Comida=$Comida, Runas=$Runas, Aldeanos=$Aldeanos, Soldados=$Soldados, Tropa1=$Tropa1, Tropa2=$Tropa2, Elites=$Elites, TropaPers=$TropaPers, EntTropa1=$EntTropa1, EntTropa2=$EntTropa2, EntElites=$EntElites, EntTropaPers=$EntTropaPers, Gene1='$Gene1', Gene2='$Gene2', Gene3='$Gene3', Gene4='$Gene4', Casas=$Casas, Granjas=$Granjas, Comercios=$Comercios, Minas=$Minas, Barracas=$Barracas, Fortificaciones=$Fortificaciones, Templos=$Templos, Establos=$Establos, ProCasas=$ProCasas, ProGranjas=$ProGranjas, ProComercios=$ProComercios, ProMinas=$ProMinas, ProBarracas=$ProBarracas, ProFortificaciones=$ProFortificaciones, ProTemplos=$ProTemplos, ProEstablos=$ProEstablos,Spells='$Spells', Chamanes='$Chamanes' WHERE ID=$ColID");
			unset($Cols,$Spells,$SpellDB); //Destruyo Algunas Variables Para Evitar Errores con la siguiente Colonia
		}else{
			//Calculo extras para Trono.
			$PiedraACT = $Cols['Piedra'];						$PiedraSIG = $Piedra - $PiedraACT;
			$ComidaACT = $Cols['Comida'];						$ComidaSIG = $Comida - $ComidaACT;
			$RunasACT = $Cols['Runas'];							$RunasSIG = $Runas - $RunasACT;
			$AldeanosACT = $Cols['Aldeanos'];				$AldeanosSIG = $Aldeanos - $AldeanosACT;
			$SoldadosACT = $Cols['Soldados'];				$SoldadosSIG = $Soldados - $SoldadosACT;
			$Tropa1ACT = $Cols['Tropa1'];						$Tropa1SIG = $Tropa1 - $Tropa1ACT;
			$Tropa2ACT = $Cols['Tropa2'];						$Tropa2SIG = $Tropa2 - $Tropa2ACT;
			$ElitesACT = $Cols['Elites'];						$ElitesSIG = $Elites - $ElitesACT;
			$TropaPersACT = $Cols['TropaPers'];			$TropaPersSIG = $TropaPers - $TropaPersACT;
			
			$EntTropa1ACT = $Cols['EntTropa1'];				$EntTropa2ACT = $Cols['EntTropa2'];						$EntElitesACT = $Cols['EntElites'];
			$EntTropaPersACT = $Cols['EntTropaPers'];	$CaballosACT = $Cols['Caballos'];							$ChamanesACT = $Cols['Chamanes'];
			$CasasACT=$Cols['Casas']; 								$ProCasasACT=$Cols['ProCasas'];								$GranjasACT=$Cols['Granjas'];
			$ProGranjasACT=$Cols['ProGranjas'];				$ComerciosACT=$Cols['Comercios'];							$ProComerciosACT=$Cols['ProComercios'];
			$MinasACT=$Cols['Minas'];									$ProMinasACT=$Cols['ProMinas'];								$BarracasACT=$Cols['Barracas'];
			$ProBarracasACT=$Cols['ProBarracas'];			$FortificacionesACT=$Cols['Fortificaciones'];	$ProFortificacionesACT=$Cols['ProFortificaciones'];
			$EstablosACT=$Cols['Establos'];						$ProEstablosACT=$Cols['ProEstablos'];					$TemplosACT=$Cols['Templos'];
			$ProTemplosACT=$Cols['ProTemplos'];
			
			$NoConstACT = $Cols['Tierra'];
			$TropasACT = $SoldadosACT + $Tropa1ACT + $Tropa2ACT + $ElitesACT + $TropaPersACT;
			$EntTropasACT = $EntTropa1ACT + $EntTropa2ACT + $EntElitesACT + $EntTropaPersACT;
			$PoblacionACT = $AldeanosACT + $TropasACT + $EntTropasACT + $ChamanesACT;
			$PobMaxACT = ($NoConst*18)+($EnConst*22)+($Cols['Casas']*12)+(($Cols['Tierra']-$NoConst)*30);

			//Calculando Ata y Def Total...
			$doQueryNomTropas = $mysqli->query("SELECT * FROM tropas WHERE Civil='".$Cols['Civil']."' OR Pers='".$Cols['Pers']."'"); $i=1;
			while(($NomTropas[$i] = $doQueryNomTropas->fetch_assoc())){$i++;}
			$AtaT1 = $Tropa1ACT * $NomTropas[1]['Ata'];		$DefT1 = $Tropa1ACT * $NomTropas[1]['Def'];
			$AtaT2 = $Tropa2ACT * $NomTropas[2]['Ata'];		$DefT2 = $Tropa2ACT * $NomTropas[2]['Def'];
			$AtaEl = $ElitesACT * $NomTropas[3]['Ata'];		$DefEl = $ElitesACT * $NomTropas[3]['Def'];
			$AtaTP = $TropaPersACT * $NomTropas[4]['Ata'];		$DefTP = $TropaPersACT * $NomTropas[4]['Def'];
			$AtaTotal = $SoldadosACT*2 + $AtaT1 + $AtaT2 + $AtaEl + $AtaTP;
			$DefTotal = $SoldadosACT*2 + $DefT1 + $DefT2 + $DefEl + $DefTP;
			
			$PorTropas = round($TropasACT/$PoblacionACT,4)*100;
			$PorEntTropas = round($EntTropasACT/$PoblacionACT,4)*100;
			$PorAldeanos = round($AldeanosACT/$PoblacionACT,4)*100;
		}
	}
	
	
	$TF = explode(" ", microtime()); $TC = round(($TF[1] + $TF[0]) - ($TI[1] - $TI[0]),4);
	if($T==1 && $P=='Jeb')
		echo("Tick procesado en $TC segundos");
?>